print("Grafikplotter Version 1.0")
eingabe <- readline("Bitte den mathematischen Funktionstyp eingeben (sin,cos,log,exp,grF): ")
xlinks <- as.numeric(readline("Bitte die linke Intervallgrenze der x-Achse eingeben: "))
xrechts <- as.numeric(readline("Bitte die rechte Intervallgrenze der x-Achse eingeben: "))
yoben <- as.numeric(readline("Bitte die obere Intervallgrenze der y-Achse eingeben: "))
yunten <- as.numeric(readline("Bitte die untere Intervallgrenze der y-Achse eingeben: "))
x <- seq(xlinks, xrechts, 0.1) 

if (eingabe == "grF") {
  print("Bitte die Koeffizienten fr f(x) = ax^5 + bx^4 + c^3 + dx^2 + ex + f  eingeben.")
  print("Dabei nicht bentigte Koeffizienten mit Null angeben!")
  
  a <- as.numeric(readline("Eingabe Koeffizient a: "))
  b <- as.numeric(readline("Eingabe Koeffizient b: "))
  c <- as.numeric(readline("Eingabe Koeffizient c: "))
  d <- as.numeric(readline("Eingabe Koeffizient d: "))
  e <- as.numeric(readline("Eingabe Koeffizient e: "))
  f <- as.numeric(readline("Eingabe Koeffizient f: "))
  eingabe <- "ganzrationale Funktion"
  y <- a*x^5 + b*x^4 + c*x^3 + d*x^2 + e*x + f
} 
if (eingabe == "sin") y <- sin(x)
if (eingabe == "cos") y <- cos(x)
if (eingabe == "log") {
  x <- seq(0, xrechts, 0.1)
  y <- log(x)
} 

if (eingabe == "exp") {
  exponent <- as.numeric(readline("Bitte den Exponenten eingeben: "))
  y <- x^exponent
} 

plot(x, y, type="l",
     main = eingabe,
     xlab= "x-Achse",
     ylab= "f(x)-Achse",
     xlim = c(xlinks, xrechts),
     ylim = c(yunten, yoben) )   
